home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 04.p (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  306b  |  11 lines
  1. 51000 rem befehlszerlegung-codierung -------------------------------------------
  2. 51001 :
  3. 51005 rem be$ in be$(1)-be$(n) zerlegen
  4. 51010 fori=0to10:be$(i)="":nexti
  5. 51020 wz=0
  6. 51030 fori=1tolen(be$)
  7. 51040 : ifmid$(be$,i,1)=" "thenwz=wz+1:goto51060
  8. 51045 : ifwz>10thenprint"eingabe ist zu lang !":i=len(be$)+1:goto51060
  9. 51050 : be$(wz)=be$(wz)+mid$(be$,i,1)
  10. 51060 nexti
  11.